####Generate 95 ci from es and se####

# Author: Ruoyan Han

cigerryan <- function(es = 0, se = 1, logis = F){
  if(logis == T){
    return(
      paste(
        "(", round(exp(es - 1.96 * se), 3), ", ", round(exp(es + 1.96 * se), 3), ")", sep = ""
      )
    )
  }
  return(
    paste(
      "(", round(es - 1.96 * se, 3), ", ", round(es + 1.96 * se, 3), ")", sep = ""
    )
  )
}

# cat(cigerryan())

# cat(cigerryan(es = -1.091, se = 1.415))
# cat(cigerryan(es = 1.498, se = 1.066))
# cat(cigerryan(es = 4.672, se = 0.981))
# cat(cigerryan(es = 4.945, se = 1.032))
# cat(cigerryan(es = -1.091, se = 1.415))
# cat(cigerryan(es = -1.091, se = 1.415))
# cat(cigerryan(es = -1.091, se = 1.415))

